my @a = (1,2,3,4);
my @b = @a;
shift @a;
print @a,"\n";
print @b,"\n";
my $a = [9,8,7,6];
my $b = $a;
shift @{$a};
print @{$a},"\n";
print @{$b},"\n";
